The CDPD Public Domain Collection for CDTV 4/CDPD_IV.bin/utilities/system/megaview/install megaview

Text File | 1994-06-29 | 4.6 KB | 204 lines

(if (> @user-level 0)   ; print a little welcome
    (message "This utility installs MegaView onto your harddisk.\n"
             "Since you are an advanced user, you will "
             "be asked a place to copy the MegaView Program to.\n"
             "The sample FileActions file will be installed into your"
             " S: directory\n"
             "You will also get the chance to choose where the doc file "
             "should go to.\n")
)

(set @default-dest
    (askdir (prompt "Select a directory to copy MegaView to")
            (help @askdir-help)
            (default "SYS:Utilities/")
            (newpath)
    )
)

(if (= @pretend 0)
    (copylib
        (source "MegaView")
        (dest   @default-dest)
        (infos)
    )
)

(set yn 3)
(if (exists "LIBS:MUIMaster.library" (noreq))
    (set yn (askbool
        (prompt "Do you want to install the FileActions editor?\n")
        (help @askbool-help)
        (default 1)
    ))
)

(set editordest "none")

(if (= yn 3)
    (set yn (askbool
        (prompt "Do you want to install the FileActions editor?\n"
                "The Editor requires you to have MUI installed,\n"
                "which seems not to be the case on your system.\n"
                "You might want to install it anyway, for later\n"
                "use")
        (help @askbool-help)
        (default 1)
    ))
)

(if (= yn 1)
    (set editordest (askdir
        (prompt "Select a directory for the Editor")
        (help @askdir-help)
        (default @default-dest)
        (newpath)
    ))
)

(if (= yn 1)
    (if (= @pretend 0)
        (copylib
            (source "FAEdit")
            (dest editordest)
            (infos)
        )
    )
)

(set yn 0)
(if (exists "LOCALE:" (noreq))
    (set yn (askbool
        (prompt "You have a locale directory.\n"
                "MegaView comes with english as the default\n"
                "Language. Do you want to install the German\n"
                "catalog?")
        (help @askbool-help)
        (default 1)
    ))
)

(if (= @pretend 0)
    (if (= yn 1)
        (copylib
            (source "Catalogs/Deutsch/MegaView.catalog")
            (dest   "LOCALE:Catalogs/Deutsch")
        )
        (if (<> editordest "none")
            (copylib
                (source "Catalogs/Deutsch/FAEdit.catalog")
                (dest   "LOCALE:Catalogs/Deutsch")
            )
        )
    )
)


(set samedir
        (askchoice
                (prompt "What shall I do next?")
                (help @askchoice-help)
                (choices "Install Doc File in same directory"
                         "Install Doc File in other directory"
                         "Don't install the doc file")
                (default 0)
        )
)

(select samedir
    (set pdir @default-dest)
    (set pdir
        (askdir (prompt "Select a directory to copy the docfile to")
                (help @askdir-help)
                (default @default-dest)
                (newpath)
        )
    )
    (set pdir "NIL:")
)

(if (<> pdir "NIL:")
    (if (= @pretend 0)
        (copyfiles
            (source "MegaView.guide")
            (dest   pdir)
            (infos)
        )
    )
)

(set ex (exists "S:FileActions" (noreq)))

(if (= @pretend 0)
    (if (= ex 0)
        (copyfiles
            (source "FileActions")
            (dest   "S:")
        )
    )
)

(set vernum (getversion "libs:whatis.library"))
(set thisver (getversion "libs/whatis.library"))
(set yn 0)
(if (< vernum thisver)
    (set yn
        (askbool
            (prompt "You have an old version of whatis.library or none at all. You will need whatis.library 3.5. Do you want to install the new version?")
            (help @askbool-help)
            (default 1)
        )
    )
)

(if (= yn 1)
    (if (= @pretend 0)
       (copyfiles
            (source "libs/whatis.library")
            (dest   "libs:")
        )
    )
)

(set yn 0)
(set there (exists "S:FileTypes" (noreq)))
(if (= there 0)
    (set yn
        (askbool
            (prompt "Whatis.library needs the file S:FileTypes. You have none installed. Do you want to install the sample version?")
            (help @askbool-help)
            (default 1)
        )
    )
)

(if (= yn 1)
    (copyfiles
        (source "FileTypes")
        (dest "S:")
    )
)

(set yn
    (askbool
        (prompt "Do you want to install the whatis.library doc file")
        (help @askbool-help)
        (default 1)
    )
)

(if (= yn 1)
    ((set pdir
        (askdir (prompt "Select a directory to copy the docfile to")
                (help @askdir-help)
                (default @default-dest)
                (newpath)
        )
    )
    (copyfiles
        (source "Whatislibrary.doc")
        (dest   pdir)
    ))
)